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// 

//Procedure Upgrade 

// Performs a fenout upgrade of a network, 

// "want to relabel" may be "true" or "false" each time the statement is reached 

// 

Procedure Upgrade 
do { 

select any router requiring addition of ports 

add _ports(router); 
} while (there are routers requiring new ports); 
do{ 

start 

i^want to relabel) { 

i6>ny router, currentrouter, can be relabeled) { 
relabel jwrfc(ctirrentrouter); 
goto start, 

} 

} 

select any port not connected to corresponding j?ort(port); 
target_portF=correspondmg jx>rt(port); 
ifi; target_port is already connected) { 

disconnected_portF=port currently connected to target_port; 

Disconmct(tw&tjport 9 disc^^ 

Comiect(port,Uifget_port); 
} while(there are misconnected ports); 
connect external_portsQ^ 

activate external jJortsQ; 
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// 

//Procedure Upgrade 

// Performs a fanout upgrade of an RCCBG network with an upgraded fanout of fanout, 
// num_routers_per_row per row, and num rows total rows. Also, 

// RELABEL_AVAILABLE flag if swapping of ports in a single router can be performed without 
//■ breaking connections. 

// 

Procedure Upgrade 
do{ 

select any router requiring addition of ports 
add j?orts(router); 
} while (there are routers requiring new ports); 

for(rindex^^index<num_rows-l^index++) { 
eurrentj?ow^ow_select(rmdex); 
n%RELABEL_AVAILABLE) { 
relabel j»r&(current_row); 

}^ 

disconnected _porf=None; // Holds the port previously disconnected by the last rewire step 
while((port=^eto j?or^disconnectedj)ort ? current_row))!=None) { 
targptjportr=eorresponding _port(port); 
if[fc*rger_jport is already connected) { 

disconnectedjport=port currently connected to target_port; 
£>iscc?«/ze<7/(target_port ? disconnected_port); 

Co««ec/(port,target_port); 

} 

connect_externaljHn*t$)\ 

activate _external _ports(); 

Fig. 7B 
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//Simplification functions. 



// 



Function correct jj0rf(portl,port2) 

{ 

if(portl can be propertly connect to port2)retum(TRUE); 
else return(FALSE); 

} 

Function carrespondingjwrtfport) 

{ 

import is a bottom port) { 



return top port of router in next row that should be properly connected to port port; 



return bottom port of router in the previous row that should be properly connected to 



} 

} 

Function Disconnect(portl ,por t2) 
{ 

Divert traffic away from port! ; 
Divert traffic away from port2 ; 
Disconnect connection between portl and port2 ; 

} 

Function Comtect(portl 5 port2) 

{ 

Connect portl and port2 ; 

Allow traffic to flow through portl ; 

Allow traffic to flow through port2 ; 

} 



} else { 




Function rowselectirowmdex) { 
ifl^num rows is even) { 

start jrow^umjrows/2-1 ; 
} else { 

startjrow=(niim_rows-l)/2; 

} 

iflrowjndex is even) { 

retura(start_row+row_index/2); 
}else{ 

return(start_row-(rowjfndex+l)/2); 

} 

Fig. 



Function row_select(r<w_mdex) { 
retum(rowindex); 

} 




Function select_pori(dport,currentjrow) II optimal dport is not used 

port_pooH{port: bottom ports of routers in row, currentrow and top port of routers in row, 

current_rovH-l not connected to corresponding j?ort(port)} ; 
// For simplicity order ri^bt to left 
//First criterion 
for port in por t jpool { 

^ iSdiscomiected(poTt) && disconnected{corresponding jw/^(port))retum(port); 

// Second criterionrThis basically says we prefer to target connections mat break 
// connections only on fully populated routers 
for port in port jpod { 

if(discomtected(port) && 

wmjiisconmctiom{rottfer_oj(port { 

return(port); 

> 

// Third criterion: Any port that is not connected 
for port in portpool { 

iSdisconnectediport)) return(port); 

// Catch all for any ports left overrNot likely to be needed 
for port in por t_pooI { 
retum(port); 

} 

retum(None); 
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Function select jwv*(dport,row) //fill the hole 
{ 

if(dport !HNfone)return(dport); 
else { 

for all bottom ports, port of routers in row currentrow scanning from right to left { 
ifij>ort is not connected to corresponding _port(poH)) return(port); 

return None; // No more ports to rewire 

} 

} 
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Function select_port(dport,current_row) // round robin 

// This requires a FIFO of ports 
import JIfo empty) { 

port_fifo={port: bottom ports of routers in row, current_row and top port of routers in row, 
current_row+l which are disconnected}; 
iflj>ort_pooi empty) { 

portjpooH{port: bottom ports of routers in row, currentrow and top port of routers in row, 

currentrow+l not connected to corresponding J>ort(port)} ; 
for port in portjpool { 
return(port); 

} 

// Catch all for any ports left over Not likely to be needed 
por(=any port not connected to proper port 
import exists) { 

return(port); 
}else { 



return(None); 

} 

} 



portFtop of portfifo ; 
remove top of portjifo ; 
returntjport); 



} 




Function refabeljports(carrent_row) 

for(i=0^<roufers_perj-ow^H-) { 

for(bportl=0*portl<faiiout;bportl-hf) { 

foi<bport2H);bport2<fanout;!^jort2-hH) { 

//Test to see if the candidate port is connected to a router which one of the 
//other ports on the same router should be connected to.lt doesn *t matter 
//at this point if it is Ihe correct top port That will be corrected in next loop, 
iffbottom port bportl of R(current_row,i)is connected to any top port of 

router ^corresponding _port{bottom port bport2 of R(current row, i)) { 
htbportl!Hbport2) { ~ 

exchange jfortsQyportl of R(current_row ? i),bport2 of R(ciirrent_row, i)); 

} 

} 

} 

for(tportl=0;^ortl<fanout;^)ortl++) { 

for(^iort2==0;^jort2<fanout;tport2++) { 

//Test to see if the candidate port is connected to a port which one of the 
//other ports on the same router should be connected to. 
iStop port tportl of R(current_rowH , i)is connected to 

corresponding _port(top port tport2 of R(current_row+ 1 , i)) { 
i^tportl!=tport2) { 

exchange _ports{t$ort\ of R(cairent_row+l, i),tport2 of R(current_rowf 1 ? i)); 

} 

} 

} 

} 

// 

//Auxiliary Procedures 

// 

Function router ofiport) 

{ 

retum(the route which port belongs to); 

// 

//Here logical relabelling is assumed possible 
//Other exchange schemes can be substituted 

// 

Function exchange jw/tfs(portl,port2) 

{ 

permanently divert traffic originally intended for portl to port2 ; 
permanently divert traffic origirially intended for port2 to portl ; 
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